home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / PRINT5.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  768 b   |  21 lines
  1. SET ECHO OFF
  2. *(    PRINT5.CMD and PRINT15.CMD    Print all DEPOSITS/by date            )
  3. *(    RICHARD T. TRABAND                                                  )
  4. *(                                                                        )
  5. NEW
  6. IF MAIN = 15 THEN
  7.    INPUT b:BUDCATDT.CMD
  8.    OUTPUT PRINTER
  9.       PRINT PRINTRPT SORTED BY DATE TRANCODE CKNUM DESCR +
  10.             WHERE TRANCODE = 1 AND DATE GE .BEGDAT AND DATE LE .ENDDAT
  11.    OUTPUT TERMINAL
  12. ENDIF
  13. IF MAIN = 5 THEN
  14.    OUTPUT PRINTER
  15.       PRINT PRINTRPT SORTED BY BUDCAT DATE TRANCODE CKNUM DESCR +
  16.             WHERE TRANCODE = 1
  17.    OUTPUT TERMINAL
  18. ENDIF
  19. FILLIN MAIN USING "PRESS [ENTER] TO CONTINUE  "
  20. QUIT TO b:PRINT.CMD
  21.